10 ' Определение суммы чисел последовательности
20 CLS
30 INPUT "Сколько чисел в последовательности"; N%
40 S = 0
50 FOR I = 1 to N%
60 INPUT "Очередное число ="; X
70 S = S + X
80 NEXT I
90 PRINT "Сумма равна"; S
100 END